home *** CD-ROM | disk | FTP | other *** search
/ Informática Multimedia 1995 April / Informatica Multimedia CD - Epimundo.iso / DOS / ARCHIVE / XTEST.ZIP / LHA_ZIP.BAT < prev    next >
Encoding:
DOS Batch File  |  1994-05-01  |  5.5 KB  |  151 lines
  1. @echo off
  2. goto Start
  3.  
  4.     ╒══════════════════════════════════════════════════════════════╗
  5.     │                      ┌─────────────                          ║
  6.     │                      │ LHA_ZIP.BAT █                         ║
  7.     │                       ▄▄▄▄▄▄▄▄▄▄▄▄▄█                         ║
  8.     │                                                              ║
  9.     │                                                              ║
  10.     │               Sun  05-01-1994  13:59:38                      ║
  11.     │                                                              ║
  12.     │            TYPE: LHA_ZIP /? for Help Screen                  ║
  13.     │                                                              ║
  14.     │         John De Palma on CompuServe 76076,571                ║
  15.     │                                                              ║
  16.     └──────────────────────────────────────────────────────────────╜
  17.  
  18. :Start
  19. if "%1"=="/?" goto Help
  20. if not exist enter.dat goto Error1
  21. rem if the next two files are in your PATH, REM out the next two lines.
  22. if not exist pkunzip.exe goto Error2
  23. if not exist lha.exe goto Error3
  24. if not "%1"=="" goto TestAll
  25.  
  26. for %%v in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do call %0 %%v*
  27. goto End
  28.  
  29. :TestAll
  30. if exist lha_list.txt goto Again1
  31. if exist zip_list.txt goto Again1
  32. @echo off
  33. echo _________________________LHA *.EXE and *.LZH list__________________________ > lha_list.txt
  34. echo _________________________ZIP *.EXE and *.ZIP list__________________________ > zip_list.txt
  35. echo. >> lha_list.txt
  36. echo. >> zip_list.txt
  37. date >> lha_list.txt < enter.dat
  38. time >> lha_list.txt < enter.dat
  39. date >> zip_list.txt < enter.dat
  40. time >> zip_list.txt < enter.dat
  41.  
  42. :Again1
  43.  
  44. if NOT exist %1.exe goto NotExist
  45. echo.
  46. echo                    Working ....
  47. echo.
  48. echo                    FOUND %1.EXE
  49. lha l %1.exe >> lha_list.txt
  50. pkunzip %1.exe -vcn >> zip_list.txt
  51. if exist %1.zip goto MakeZIP
  52. :ChkLHA
  53. if exist %1.lzh goto MakeLHA
  54. goto End
  55. :MakeZIP
  56. echo.
  57. echo                    Working ....
  58. echo.
  59. echo                    FOUND %1.ZIP
  60. pkunzip %1.zip -vcn >> zip_list.txt
  61. goto ChkLHA
  62. goto End
  63. :MakeLHA
  64. echo.
  65. echo                    Working ....
  66. echo.
  67. echo                    FOUND %1.LZH
  68. lha l %1 >> lha_list.txt
  69. goto End
  70. :NotExist
  71. if exist %1.zip goto MakeZIP
  72. if exist %1.lzh goto MakeLHA
  73. echo.
  74. echo                    Working ....
  75. echo.
  76. if NOT exist %1.exe echo                    NOT Found %1.exe
  77. if NOT exist %1.zip echo                    NOT Found %1.zip
  78. if NOT exist %1.lzh echo                    NOT Found %1.lzh
  79. goto End
  80. :Help
  81. cls
  82. echo.
  83. echo.
  84. echo    █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
  85. echo    █                          LHA_ZIP.BAT                       █▒▒
  86. echo    █                                                            █▒▒
  87. echo    █      PURPOSE: Lists files in LHA & ZIP Files               █▒▒
  88. echo    █               in two text files called:                    █▒▒
  89. echo    █                                                            █▒▒
  90. echo    █               LHA_LIST.TXT                                 █▒▒
  91. echo    █               ZIP_LIST.TXT                                 █▒▒
  92. echo    █                                                            █▒▒
  93. echo    █  COMMAND: 1- LHA_ZIP /?    to display this screen          █▒▒
  94. echo    █                                                            █▒▒
  95. echo    █           2-  LHA_ZIP  A* (All files, first letter "A")    █▒▒
  96. echo    █                     (don't need *.EXE, *.ZIP, or *.LZH)    █▒▒
  97. echo    █                                                            █▒▒
  98. echo    █           3-  LHA_ZIP   (processes =ALL= files!!!!)        █▒▒
  99. echo    █                                                            █▒▒
  100. echo    █    WARNING:  If you have many MegaBytes of Files this      █▒▒
  101. echo    █              program will take several minutes....         █▒▒
  102. echo    █              DO NOT REBOOT!                                █▒▒
  103. echo    █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█▒▒
  104. echo     ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  105. echo.
  106. pause
  107. goto End
  108. :Error1
  109. cls
  110. echo.
  111. echo.
  112. echo    ╔═══════════════════════════════════════════════╗
  113. echo    ║              Missing File ERROR!              ║
  114. echo    ║                                               ║
  115. echo    ║    The File ENTER.DAT can't be Found!         ║
  116. echo    ║    Must have ENTER.DAT to run LHA_ZIP.BAT     ║
  117. echo    ║    Sorry Must Abort....                       ║
  118. echo    ╚═══════════════════════════════════════════════╝
  119. echo 
  120. pause
  121. goto End
  122. :Error2
  123. cls
  124. echo.
  125. echo.
  126. echo    ╔═══════════════════════════════════════════════╗
  127. echo    ║              Missing File ERROR!              ║
  128. echo    ║                                               ║
  129. echo    ║    The File PKUNZIP.EXE can't be Found!       ║
  130. echo    ║    Must have PKUNZIP.EXE to run LHA_ZIP.BAT   ║
  131. echo    ║    Sorry Must Abort....                       ║
  132. echo    ╚═══════════════════════════════════════════════╝
  133. echo 
  134. pause
  135. goto End
  136. :Error3
  137. cls
  138. echo.
  139. echo.
  140. echo    ╔═══════════════════════════════════════════════╗
  141. echo    ║              Missing File ERROR!              ║
  142. echo    ║                                               ║
  143. echo    ║    The File LHA.EXE can't be Found!           ║
  144. echo    ║    Must have LHA.EXE run LHA_ZIP.BAT          ║
  145. echo    ║    Sorry Must Abort....                       ║
  146. echo    ╚═══════════════════════════════════════════════╝
  147. echo 
  148. pause
  149. goto End
  150. :End
  151.